home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib1 / v_01_04 / 1n04040b < prev    next >
Encoding:
Text File  |  1995-11-01  |  201 b   |  16 lines
  1.  
  2.  
  3. if not (c in ['0' .. '9']) do
  4.     begin
  5.     code := i;
  6.     exit;
  7.     end;
  8. n := ord(c) - ord('0');
  9. c := next;
  10. while c in ['0' .. '9'] do
  11.     begin
  12.     n := 10 * n + ord(c) - ord('0');
  13.     c := next;
  14.     end;
  15.  
  16.